home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / BouncingBalls.AMOS / BouncingBalls.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-03-12  |  1.1 KB  |  44 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *        Bounching Balls V1.1       *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Screen Open 0,320,200,2,0
  9. Curs Off : Flash Off : Cls 0
  10. Colour 17,$484 : Colour 18,$8C8 : Colour 19,$CFC
  11. Colour 21,$844 : Colour 22,$C88 : Colour 23,$FCC
  12. Colour 25,$448 : Colour 26,$88C : Colour 27,$CCF
  13. Colour 29,$884 : Colour 30,$CC8 : Colour 31,$FFC
  14. A$="L R0=X*20; L R1=Y*20; "
  15. A$=A$+"A: L X=R0/20; L Y=R1/20; P; L R1=R1+R3; L R3=R3+1; L R0=R0+R2; "
  16. A$=A$+"   I R0+R2<2560 J L; "
  17. A$=A$+"   I R0+R2>8640 J L; "
  18. A$=A$+"B: I R1+R3>4680 J U; "
  19. A$=A$+"   J A; "
  20. A$=A$+"L: L R2=0-R2; J B; "
  21. A$=A$+"U: L R3=1-R3; J A; "
  22. Hide 
  23. For A=0 To 7
  24.   Sprite A,Rnd(300)+128,Rnd(40)+50,1
  25.   Channel A To Sprite A
  26.   Amal A,A$
  27.   Amreg(A,2)=(Rnd(50)+10)*(Rnd(1)*2-1)
  28.   Amreg(A,3)=Rnd(30)
  29. Next 
  30. Amal On 
  31. Make Mask 
  32. Dim C(7)
  33. Do 
  34.   For A=0 To 7
  35.     B=Sprite Col(A,0 To 7)
  36.     If B and(C(A)=0)
  37.       Amreg(A,2)=-Amreg(A,2) : Amreg(A,3)=-Amreg(A,3)
  38.       C(A)=1
  39.     Else 
  40.       If B=0 : C(A)=0 : End If 
  41.     End If 
  42.   Next 
  43.   Wait Vbl 
  44. Loop